home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / jaz_clib.arc / CLS.C < prev    next >
Text File  |  1989-04-09  |  678b  |  29 lines
  1. /*
  2. ┌────────────────────────────────────────────────────────────────────────────┐
  3. │Cls.c                                         │
  4. │Clears the screen with the specified attribute                  │
  5. │                                         │
  6. │Usage:                                      │
  7. │#define BLUE 31                                 │
  8. │.                                         │
  9. │.                                         │
  10. │.                                         │
  11. │cls(BLUE);                                     │
  12. │                                         │
  13. │(C) Jazsoft Software by Jack A. Zucker (301) 794-5950 15:35:24  4/6/1986    │
  14. └────────────────────────────────────────────────────────────────────────────┘
  15. */
  16. #include <jaz.h>
  17. cls(fattr)
  18. int fattr;
  19. {
  20.   TREG wreg;
  21.  
  22.   wreg.x.ax = 0x600;
  23.   wreg.h.bh = fattr;
  24.   wreg.x.cx = 0;
  25.   wreg.x.dx = 0x184f;
  26.   intr(0x10,&wreg);
  27. }
  28.  
  29.